<%
    Class CodeResponse
        Public sFuncName
        Public sFuncCode
        Public sCodeType
        Public sFuncType
        Public sCreatorMail
        Public Function ToString()
            Dim sCode
            'sCode="{""ref"":""ok"",""name"":""" & filter(sFuncName) & """,""code"":""" & filter(sFuncCode) & """,""Language"":""" & filter(sCodeType) & """,""Type"":""" & sFuncType & """}"
            sCode=sCode & "{" 
            sCode=sCode & ValuePair("ref","ok") & "," & ValuePair("name",filter(sFuncName)) & ","
            sCode=sCode & ValuePair("code",filter(sFuncCode)) & "," & ValuePair("Language",filter(sCodeType)) & ","
            sCode=sCode & ValuePair("origincode",sFuncCode) & "," & ValuePair("Language",filter(sCodeType)) & ","
            sCode=sCode & ValuePair("Type",filter(sFuncType)) & "," & ValuePair("CreatorMail",myisnull(filter(sCreatorMail),"【雷锋】"))
            sCode=sCode & "}"
            ToString=sCode
        End Function

        Public Function ValuePair(key,value)
            ValuePair="""" & key & """:""" & value & """"
        End Function

        Public function myisnull(value,replaceby)
            If value=empty or value="" then
                myisnull=replaceby
            Else
                myisnull=value
            End If
        End Function
    End Class
%>